home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VSTFONTS.S < prev    next >
Text File  |  1993-03-16  |  2KB  |  67 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*
  4. ;* 07/18/91 v1.6
  5. ;*        The DRI manual shows these two functions taking a parm 'select',
  6. ;*        but it also says that the 1 intin parm is 'reserved, s/b 0'.
  7. ;*        Further confusing matters, the original Alcyon bindings set the
  8. ;*        intin count to zero, not one.  And finally, users report that
  9. ;*        the vst_load_fonts() call dies with 3 bombs.  None of that makes
  10. ;*        any sense to me, but the intin count has been changed to zero,
  11. ;*        we'll see if that fixes the problem.
  12. ;*========================================================================
  13.  
  14.  
  15. ;*------------------------------------------------------------------------
  16. ;* Load fonts.
  17. ;*------------------------------------------------------------------------
  18.  
  19.           globl     _vst_load_fonts
  20. _vst_load_fonts:
  21. ;    .cargs    #8,handle.w
  22.  
  23. handle      =         8
  24.  
  25.           link        a6,#-2
  26.  
  27. ;          VContrl    #119
  28.           move.w    handle(a6),-(sp)    ; contrl[6]
  29.           clr.l     -(sp)                ; contrl[5,4]
  30.           clr.l     -(sp)                ; contrl[3,2]
  31.           clr.w     -(sp)                ; contrl[1]
  32.           move.w    #119,-(sp)            ; contrl[0]
  33.  
  34.           subq.l    #4,sp                ;* -> ptsout
  35.           pea        -2(a6)                ;* -> intout
  36.           subq.l    #8,sp                ;* -> ptsin, intin
  37.           pea        16(sp)                ;* -> contrl
  38.  
  39.           jmp        vdicall
  40.  
  41. ;*------------------------------------------------------------------------
  42. ;* Unload fonts.
  43. ;*------------------------------------------------------------------------
  44.  
  45.           globl     _vst_unload_fonts
  46. _vst_unload_fonts:
  47. ;    .cargs    #8,handle.w
  48.  
  49. handle      =         8
  50.  
  51.           link        a6,#-2
  52.  
  53. ;          VContrl    #120
  54.           move.w    handle(a6),-(sp)    ; contrl[6]
  55.           clr.l     -(sp)                ; contrl[5,4]
  56.           clr.l     -(sp)                ; contrl[3,2]
  57.           clr.w     -(sp)                ; contrl[1]
  58.           move.w    #120,-(sp)            ; contrl[0]
  59.  
  60.           subq.l    #4,sp                ;* -> ptsout
  61.           pea        -2(a6)                ;* -> intout
  62.           subq.l    #8,sp                ;* -> ptsin, intin
  63.           pea        16(sp)                ;* -> control
  64.  
  65.           jmp        vdicall
  66.           end
  67.